PC Home 48/Fun Clicp Art 5000.iso/r/mbm/00825_SU-RN en.ls

Text File | 1996-05-11 | 7.3 KB | 194 lines

on renseigne txt1, sty1, txt2, sty2, nCurs
  set the textStyle of field "ZI4" to sty1
  set the text of field "ZI4" to txt1
  set the text of field "ZI5" to " "
  set the textStyle of field "ZI5" to "plain"
  set the textStyle of field "ZI5" to sty2
  set the foreColor of cast "ZI5" to the foreColor of cast "jaune"
  set the text of field "ZI5" to txt2
  curseur(nCurs)
end

on renseigne_env Quel_Env
  global gEtatEtud, gCodEnv, gNumEnv, gNomBestEnv, gTraduit
  if Quel_Env <> 0 then
    set moncod to getAt(gCodEnv, Quel_Env)
    set monNum to getAt(gNumEnv, Quel_Env)
  else
    set moncod to gEtatEtud
    set maPos to getPos(gCodEnv, moncod)
    set monNum to getAt(gNumEnv, maPos)
  end if
  if char 1 of moncod <> " " then
    set monnom to getAt(gNomBestEnv, monNum)
    if char 1 of monnom = "+" then
      set the textStyle of field "ZI5" to "bold,italic"
    else
      set the textStyle of field "ZI5" to "plain"
      set the textStyle of field "ZI5" to "bold"
    end if
    if Quel_Env <> 0 then
      if gEtatEtud = moncod then
        set the foreColor of cast "ZI5" to the foreColor of cast "rouge"
        curseur(7)
      else
        set the foreColor of cast "ZI5" to the foreColor of cast "vert"
        if Quel_Env = 2 then
          curseur(1)
        else
          curseur(7)
        end if
      end if
    else
      set the foreColor of cast "ZI5" to the foreColor of cast "JAUNE"
      set the text of cast "ZI4" to getAt(gTraduit, 66)
      curseur(1)
    end if
    put " " into char 1 of monnom
    set the text of cast "ZI5" to monnom
  end if
end

on exitFrame
  global gLocLabel
  go(label(gLocLabel))
end

on idle
  global gBarChron, gSurvolAct, gSurvolPrec, gListSuj, gMaxBoutons, gEtaSpir, gSujet0, gSujet1, g1erSprChr, g1erSprNav, g1erSprLoc, gListCod, gEtudAct, gEtatEtud, gMessDef1, gMessDef2, gMessSty1, gMessSty2, gSprVideo1, gActVideo1, gPartie, gTraduit
  if not (the mouseDown) then
    set MsCast to the mouseCast
    if MsCast > 0 then
      if not gEtaSpir then
        set gSurvolAct to 0
        repeat with monSpr = g1erSprChr to gMaxBoutons
          if rollOver(monSpr) and (the castNum of sprite monSpr <> 0) and the visible of sprite monSpr then
            set gSurvolAct to monSpr
            exit repeat
          end if
        end repeat
        if gSurvolAct <> gSurvolPrec then
          if gSurvolAct <> 0 then
            if (gSurvolAct >= g1erSprChr) and (gSurvolAct <= (g1erSprChr + 9)) then
              gBarChron(survol, gSurvolAct, the number of cast "ZI4")
            end if
            if gSurvolAct = g1erSprNav then
              renseigne(getAt(gTraduit, 12), "bold", " ", gMessSty2, 1)
            end if
            if gSurvolAct = (g1erSprNav + 1) then
              renseigne(getAt(gTraduit, 26) && getAt(gTraduit, 3), "bold", " ", gMessSty2, 7)
            end if
            if gSurvolAct = (g1erSprNav + 2) then
              renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 5), "bold", " ", gMessSty2, 7)
            end if
            if gSurvolAct = (g1erSprNav + 3) then
              renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 4), "bold", " ", gMessSty2, 7)
            end if
            if gSurvolAct = (g1erSprNav + 4) then
              renseigne(getAt(gTraduit, 1) && getAt(gTraduit, 2) && getAt(gTraduit, 7), "bold", " ", gMessSty2, 7)
            end if
            if gSurvolAct = (g1erSprNav + 5) then
              renseigne(getAt(gTraduit, 27), "bold", " ", gMessSty2, 1)
            end if
            if gSurvolAct = (g1erSprNav + 6) then
              renseigne(getAt(gTraduit, 28), "bold", " ", "bold", 1)
            end if
            if (gSurvolAct >= (g1erSprLoc + 4)) and (gSurvolAct <= (g1erSprLoc + 5)) then
              set monAct to word 1 of the name of cast MsCast
              set monEtat to word 2 of the name of cast MsCast
              set monTxt1 to " "
              set monTxt2 to " "
              set monCur to -1
              if monEtat = "0" then
                set monTxt1 to getAt(gTraduit, 36)
                set monTxt2 to gSujet0(Le_Nom)
                set monCur to 7
              else
                if monEtat = "1" then
                  set monTxt1 to getAt(gTraduit, 37)
                  set moncod to gSujet0(Le_NumPar)
                  set monSuj to getAt(gListSuj, moncod)
                  set monTxt2 to monSuj(Le_Nom)
                  set monCur to 7
                else
                  nothing()
                end if
              end if
              renseigne(monTxt1, "bold", monTxt2, "bold italic", monCur)
            end if
            if (gSurvolAct >= g1erSprLoc) and (gSurvolAct <= (g1erSprLoc + 3)) then
              set monAct to char 3 to 4 of word 1 of the name of cast MsCast
              set monTxt1 to " "
              set monTxt2 to " "
              set monCur to 1
              if (monAct = "SU") or (monAct = "CO") or (monAct = "HI") or (monAct = "EN") then
                if gEtudAct = monAct then
                  set monTxt1 to getAt(gTraduit, 40)
                  set monCur to 7
                else
                  set monTxt1 to getAt(gTraduit, 41)
                end if
                if monAct = "SU" then
                  set monTxt2 to getAt(gTraduit, 32)
                end if
                if monAct = "CO" then
                  set monTxt2 to getAt(gTraduit, 33)
                end if
                if monAct = "HI" then
                  set monTxt2 to getAt(gTraduit, 34)
                  set monCur to 7
                end if
                if monAct = "EN" then
                  set monTxt2 to getAt(gTraduit, 35)
                end if
                renseigne(monTxt1, "bold", monTxt2, "bold", monCur)
              end if
            end if
            if (gSurvolAct >= (g1erSprLoc + 6)) and (gSurvolAct <= (g1erSprLoc + 7)) then
              set nomBt to word 1 of the name of cast MsCast
              if nomBt = "BTGEJC" then
                renseigne(getAt(gTraduit, 48), "bold", " ", "bold", 1)
              end if
              if nomBt = "BTGOEI" then
                renseigne_env(0)
              end if
              if nomBt = "BTGVID" then
                renseigne(getAt(gTraduit, 65), "bold", "<ΓÇö", "bold", 7)
              end if
            end if
            if (gSurvolAct >= (g1erSprLoc + 8)) and (gSurvolAct <= (g1erSprLoc + 11)) then
              set numact to charToNum(char 4 of the name of cast the castNum of sprite gSurvolAct) - 48
              renseigne_env(numact)
            end if
          else
            set monEpok to gSujet0(Le_Epoque)
            gBarChron(fleche, 1, monEpok, 0)
            if gSujet1 <> 0 then
              set monEpok2 to gSujet1(Le_Epoque)
              gBarChron(fleche, 1, monEpok2, 1)
            else
              gBarChron(fleche, 0, monEpok, 1)
            end if
            renseigne(gMessDef1, gMessSty1, gMessDef2, gMessSty2, -1)
          end if
          set gSurvolPrec to gSurvolAct
        end if
      else
        if MsCast > 0 then
          if the number of words in the name of cast MsCast = 2 then
            if (word 2 of the name of cast MsCast = "1") or (word 2 of the name of cast MsCast = "0") then
              curseur(1)
            else
              curseur(-1)
            end if
          else
            curseur(-1)
          end if
        else
          curseur(-1)
        end if
      end if
    end if
  end if
end